(cp-coding-system-for-codepage-1): Put

charset-origin-alist property to a coding system for the codepage.

diff --git a/lisp/international/codepage.el b/lisp/international/codepage.el
index 9d5e7872cb608eedc0efe9e1d6aadc1d697141bc..6f595c61b9011d4d8207a2de12291e7379a8075b 100644 (file)
--- a/lisp/international/codepage.el
+++ b/lisp/international/codepage.el
@@ -116,7 +116,8 @@ variety is actually just an alias for the -unix variety)."
               " characters using IBM codepage " coding-name)
        (cons ccl-decoder-unix ccl-encoder-unix)
        `((safe-charsets ascii ,iso-name)
-        (valid-codes (0 . 255))))
+        (valid-codes (0 . 255))
+        (charset-origin-alist ,(list iso-name (symbol-name coding) encoder))))
       ;;; Make coding systems CODING-unix, CODING-dos, CODING-mac.
       (make-subsidiary-coding-system coding)
       (put coding 'eol-type (vector (intern (format "%s-unix" coding))